home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tp.d64 / double pinball.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-11  |  1KB  |  30 lines
  1. 100 SYS3160:PRINTTAB(17)"PLAY":PRINTTAB(12)"DOUBLE PINBALL"
  2. 110 PRINTTAB(7)"TRY TO ELIMINATE ALL PINS":PRINTTAB(10)"KEYBOARD CONTROL:"
  3. 115 PRINT"LEFT PLR"SPC(23)"RIGHT PLR";
  4. 120 PRINT" [213][195][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][195][201]"
  5. 130 PRINT" [194]SH[146][194][194]Z[146][194][194]X[194][194]C[194][194]V[194][194]B[194][194]N[194][194]M[194][194],[194][194].[194][194]/[146][194][194]SH[146][194]
  6. 140 [153]" MID$LENLEN(null)MID$LEN(null)MID$LEN(null)MID$LEN(null)MID$LEN(null)MID$LEN(null)MID$LEN(null)MID$LEN(null)MID$LEN(null)MID$LEN(null)MID$LEN(null)MID$LENLEN(null)"
  7. 160 [153]"      (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$
  8. 170 PRINT"      [194] SPACE BAR (SERVE BALL)[194][160]
  9. 180 [153]"      MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)
  10. 190 PRINT""TAB(12)"SCORE TABLE:"
  11. 192 PRINT" FROM '*' = 1 POINT TO '[211]' = 6 POINTS"
  12. 194 PRINT"  ALL PINS DESTROYED = 5 EXTRA BALLS"
  13. 196 PRINT"    PRESS 'F7' TO START THE GAME !!!";
  14. 199 IFPEEK(203)<>3THEN199
  15. 200 B=9:D(0)=39:D(1)=41:C$="":SYS3200
  16. 210 PRINTC$TAB(14)B"[157][214]":O=1065:P=1425+INT(RND(0)*19)*2:POKEP,33
  17. 220 R=INT(RND(0)*2-1):M=D(1+R):IFPEEK(203)<>60THEN220
  18. 230 POKEP,81:POKEO,32:PRINTC$TAB(31)S:O=P
  19. 240 T=P+M:IFT>2023THEN310
  20. 250 IFPEEK(T)=32THEN280
  21. 260 IFPEEK(T)<128THEN290
  22. 270 R=NOTR:M=D(1+R)*SGN(-M):IFPEEK(P+M)<>32THENM=-M:GOTO240
  23. 280 P=P+M:GOTO230
  24. 290 S=S+6-INT((T-1145)/40):POKET,32:POKET+54272,1:H=H+1:IFH<114THEN270
  25. 300 H=0:B=B+5:POKEO,32:SYS3342:GOTO210
  26. 310 B=B-1:SYS3301:IFB>=0THEN210
  27. 320 PRINT""TAB(11)"G A M E   O V E R"
  28. 330 IFPEEK(203)<>3THEN330
  29. 340 RUN
  30.